home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4th86_v4.zip
/
SECDELAY.4TH
< prev
next >
Wrap
Text File
|
1993-12-08
|
428b
|
25 lines
code secdelay
pop ax ( count )
mov bx,0
mov bl,al ( count )
| tloop
mov ah,2ch ( get system time )
int 21h
mov bh,dh ( seconds )
| dloop
int 21h
cmp bh,dh ( has it changed )
jz dloop ( loop if not )
dec bl ( dec count )
mov bh,0
push bx
push bx
:enter dup 9 > if 8 .c then 8 8 .c .c . :exit
pop bx
cmp bl,0
jnz tloop
labels
;